Imports System.Windows.Forms
Imports Infragistics.Win
Imports System.Diagnostics
Private Sub ultraProgressBar1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
   
    ' ProgressFillTextUIElement のヒット テスト
    Dim fillTextUIElement As UIElement
 	fillTextUIElement = Me.ultraProgressBar1.UIElement.GetDescendant( _
		GetType(UltraWinProgressBar.ProgressFillTextUIElement))
    
    If Not fillTextUIElement Is Nothing Then
	  If fillTextUIElement.Contains(new Point(e.X,e.Y))
            Debug.WriteLine("Hit ProgressFillTextUIElement")
      End If
 		End If
End Sub